home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 726-750 / 729 / bbbbs / bbbbs54.lzh / rexx / doorDemon.baud < prev    next >
Text File  |  1992-07-14  |  480b  |  25 lines
  1. /* $VERS: 5.3 doorDemon.baud 14 Jul 1992 (14.7.91)
  2. runs automatically whenever a rexxDoor is in use.
  3. */
  4.  
  5. CALL OPENPORT('BBS_DEMON')
  6. secs=GETCLIP('BBS_demon')-20
  7. CALL TIME('R')
  8. DO FOREVER
  9.   CALL DELAY(250)
  10.   IF GETCLIP('BBS_demon')='QUIT' THEN
  11.     DO
  12.       CALL SETCLIP('BBS_demon')
  13.       CALL CLOSEPORT('BBS_DEMON')
  14.       EXIT;
  15.     END
  16.   ADDRESS BAUD dcd
  17.   IF RC=0 | TIME('E')>secs THEN
  18.     DO
  19.       ADDRESS BAUD Send '03'x
  20.       CALL DELAY(250)
  21.     END
  22. END
  23.  
  24. /* doorDemon.baud */
  25.